Private Sub btn_Click()

    ̵ lstû, lst, ü̵:=False
    
    lblû.Caption = " : " & lstû.ListCount
    lbl.Caption = " : " & lst.ListCount

End Sub

Private Sub btn_Click()

    If lstû.ListCount > 0 Then

        ̵ lstû, lst, ü̵:=True
        
        lblû.Caption = " : " & lstû.ListCount
        lbl.Caption = " : " & lst.ListCount

    End If

End Sub

Private Sub btn_Click()

    ̵ lst, lstû, ü̵:=False
    
    lblû.Caption = " : " & lstû.ListCount
    lbl.Caption = " : " & lst.ListCount

End Sub

Private Sub btn_Click()

    If lst.ListCount > 0 Then

        ̵ lst, lstû, ü̵:=True
        
        lblû.Caption = " : " & lstû.ListCount
        lbl.Caption = " : " & lst.ListCount

    End If

End Sub